home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / util / cdity / ShutAll.lha / ShutAll / Install_f < prev    next >
Text File  |  1996-10-27  |  4KB  |  249 lines
  1.  
  2. ;================================= FRANCAIS ==================================
  3.  
  4. (set #bad-kick "Le Kickstart 3.0 (V39) est le minimum requis pour faire fonctionner ShutAll")
  5.  
  6. (set #copy-main "Copie de ShutAll en cours...")
  7. (set #copy-samples "Copies des Sons en cours...")
  8. (set #copy-prefs "Copie du programme de préférences en cours...")
  9. (set #copy-doc "Copie de la Documentation en cours...")
  10. (set #copy-dock "Copie du Dock en cours...")
  11. (set #copy-lib "Copie de l'iffparse.library vers Libs: en cours...")
  12.  
  13. (set #drawer-main "Creation du répertoire ShutAll...")
  14. (set #drawer-samples "Création du répertoire Samples...")
  15.  
  16.  
  17. (set #inst-doc "\n\nVoulez-vous installer la Documentation AmigaGuide en français ?")
  18. (set #inst-samples "\n\nVoulez-vous installer le répertoire des Sons ?\n(Oui Oui Oui !!!)")
  19. (set #inst-dock "\n\nVoulez-vous installer le Dock pour ToolManager ?\n(très pratique)")
  20.  
  21. (set #where-main "Où voulez-vous installer le répertoire ShutAll ?")
  22. (set #where-main-help
  23.     (cat
  24.         "Voici le chemin de destination pour ShutAll\n. Un répertoire ShutAll va être créé ici."
  25.     )
  26. )
  27. (set #where-doc "Où voulez-vous installer la Documentation ?")
  28. (set #where-samples "Où voulez-vous installer le répertoire des Sons ?\nUn répertoire appelé Samples va être créé ici.")
  29. (set #where-dock "Où voulez-vous installer le Dock pour ToolManager ?")
  30. (set #where-prefs "Où voulez-vous installer le Programme de Préférences ?")
  31.  
  32.  
  33. (set #install-exit "Merci d'avoir installer ShutAll ...")
  34. (set #install-start
  35.     (cat
  36.         "\n\n"
  37.         "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  38.         "Bienvenue dans 'installer de ShutAll !\n\n"
  39.         "créé par Stéphane NICOLE\n\n"
  40.         "Octobre 1996\n\n"
  41.         "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  42.         "Dorénavant éteindre votre Amiga sera un plaisir !!!"
  43.     )
  44. )
  45. (set doc-file "ShutAll_fra.guide")
  46.  
  47. ;============================== PROGRAM-START================================
  48.  
  49. (set @default-dest "SYS:")
  50.  
  51. ; Check Kickstart (>= v3.0) Version.
  52.  
  53. (if (< (/ (getversion) 65536) 39)
  54.     (abort #bad-kick)
  55. )
  56.  
  57. (message #install-start)
  58.  
  59.  
  60. (welcome)
  61.  
  62. ;-------------------------------
  63. ; Ask for Main prog Installation
  64. ;-------------------------------
  65.  
  66. (set startup-files 0)
  67.  
  68. (set main-dest
  69.     (askdir
  70.     (help "")
  71.     (prompt    #where-main)
  72.     (default @default-dest)
  73.     )
  74. )
  75.  
  76. ;-------------------
  77. ; New default drawer
  78. ;-------------------
  79.  
  80. (set @default-dest
  81.   (tackon main-dest "ShutAll")
  82. )
  83.  
  84. ;----------------------------------
  85. ; Create Drawer & Copy Main Program
  86. ;----------------------------------
  87.  
  88. (complete 0)
  89.  
  90. (makedir @default-dest
  91.     (prompt #drawer-main)
  92.     (help "")
  93.     (infos)
  94. )
  95.  
  96.  
  97. (copyfiles
  98.     (prompt #copy-main)
  99.     (source "ShutAll")
  100.     (dest @default-dest)
  101.     (files)
  102.     (infos)
  103. )
  104.  
  105. ;----------------------
  106. ; Copy Preferences Prog
  107. ;----------------------
  108.  
  109. (complete 10)
  110.  
  111. (set prefs-dest
  112.     (askdir
  113.     (help "")
  114.     (prompt    #where-prefs)
  115.     (default @default-dest)
  116.     )
  117. )
  118.  
  119. (copyfiles
  120.     (prompt #copy-prefs)
  121.     (source "SA_Prefs")
  122.     (dest prefs-dest)
  123.     (files)
  124.     (infos)
  125. )
  126.  
  127.  
  128. ;----------------------
  129. ; Ask for documentation
  130. ;----------------------
  131.  
  132. (complete 25)
  133.  
  134.  
  135. (set copy-doc
  136.     (askbool
  137.         (prompt #inst-doc)
  138.         (help "")
  139.     )
  140. )
  141.  
  142. ;-------------------
  143. ; Copy documentation
  144. ;-------------------
  145.  
  146. (if copy-doc
  147.     (set doc-dest
  148.         (askdir
  149.         (help "")
  150.         (prompt    #where-doc)
  151.         (default @default-dest)
  152.         )
  153.     )
  154. )
  155.  
  156. (if copy-doc
  157.     (copyfiles
  158.         (prompt #copy-doc)
  159.         (source doc-file)
  160.         (dest doc-dest)
  161.         (files)
  162.         (infos)
  163.     )
  164. )
  165.  
  166. ;----------------------
  167. ; Ask for Dock Icon
  168. ;----------------------
  169.  
  170. (complete 50)
  171.  
  172.  
  173. (set copy-dock
  174.     (askbool
  175.         (prompt #inst-dock)
  176.         (help "")
  177.     )
  178. )
  179.  
  180. ;-------------------
  181. ; Copy DockIcon
  182. ;-------------------
  183.  
  184. (if copy-dock
  185.     (set dock-dest
  186.         (askdir
  187.         (help "")
  188.         (prompt    #where-dock)
  189.         (default @default-dest)
  190.         )
  191.     )
  192. )
  193.  
  194. (if copy-dock
  195.     (copyfiles
  196.         (prompt #copy-dock)
  197.         (source "ShutAll-Dock.info")
  198.         (dest dock-dest)
  199.         (files)
  200.         (infos)
  201.     )
  202. )
  203.  
  204.  
  205.  
  206.  
  207. ;----------------------
  208. ; Ask for samples
  209. ;----------------------
  210.  
  211. (complete 75)
  212.  
  213. (set copy-samples
  214.     (askbool
  215.         (prompt #inst-samples)
  216.         (help "")
  217.     )
  218. )
  219.  
  220.  
  221. ;-------------------
  222. ; Copy samples
  223. ;-------------------
  224.  
  225. (set @default-dest
  226.      (tackon @default-dest "Samples")
  227. )
  228.  
  229.  
  230. (if copy-samples
  231.     (copyfiles
  232.         (prompt #copy-samples)
  233.         (source "Samples/")
  234.         (dest @default-dest)
  235.         (confirm 2)
  236.         (all)
  237.         (help "")
  238.         (infos)
  239.     )
  240. )
  241.  
  242.  
  243.  
  244.  
  245. (complete 100)
  246.  
  247. (EXIT #install-exit)
  248.  
  249.